home *** CD-ROM | disk | FTP | other *** search
/ Aminet 1 (Walnut Creek) / Aminet - June 1993 [Walnut Creek].iso / aminet / dev / lang / pcq12b.lzh / Include / Utils / Random.i < prev    next >
Text File  |  1990-08-27  |  661b  |  34 lines
  1. {
  2.     Random.p
  3.  
  4.     This implements a very long cycle random number generator
  5.     by combining three independant generators.  The technique
  6.     was described in the March 1987 issue of Byte.
  7.  
  8.     The source code for these routines is in Runtime/Extras
  9. }
  10.  
  11.  
  12. {   RealRandom returns a real value between 0 and 1 }
  13.  
  14. Function RealRandom : Real;
  15.     External;
  16.  
  17.  
  18. { RangeRandom returns an integer value between 0 and MaxValue, inclusive }
  19.  
  20. Function RangeRandom(MaxValue : Integer) : Integer;
  21.     External;
  22.  
  23.  
  24. { Sets the seeds to the value provided }
  25.  
  26. Procedure UseSeed(seed : Integer);
  27.     External;
  28.  
  29.  
  30. { Sets the seeds according to the system clock }
  31.  
  32. Procedure SelfSeed;
  33.     External;
  34.